﻿Imports System.Text
Imports Microsoft.SharePoint.Taxonomy
Imports System.Xml.Serialization

Public Class TermSetXML
    <XmlAttribute()>
    Public Guid As String = String.Empty

    Private _termSetName As String = String.Empty
    Public Property TermSetName() As String
        Get
            Return _termSetName
        End Get
        Set(ByVal value As String)
            _termSetName = value
        End Set
    End Property

    Private _termSetLCID As Integer = 0
    Public Property TermSetLCID() As Integer
        Get
            Return _termSetLCID
        End Get
        Set(ByVal value As Integer)
            _termSetLCID = value
        End Set
    End Property

    Private _termSetDescription As String = String.Empty
    Public Property TermSetDescription() As String
        Get
            Return _termSetDescription
        End Get
        Set(ByVal value As String)
            _termSetDescription = value
        End Set
    End Property

    Private _termSetNode As List(Of TermXMLElement)
    Public Property TermSet() As List(Of TermXMLElement)
        Get
            Return _termSetNode
        End Get
        Set(ByVal value As List(Of TermXMLElement))
            _termSetNode = value
        End Set
    End Property
End Class

Public Class TermXMLElement
    <XmlAttribute()>
    Public Guid As String = String.Empty

    Private _nameNode As String = String.Empty
    Public Property Name() As String
        Get
            Return _nameNode
        End Get
        Set(ByVal value As String)
            _nameNode = value
        End Set
    End Property

    Private _descriptionTerm As String = String.Empty
    Public Property Description() As String
        Get
            Return _descriptionTerm
        End Get
        Set(ByVal value As String)
            _descriptionTerm = value
        End Set
    End Property

    Private _TermSynonymous As List(Of TermXMLSynonymous)
    Public Property TermCollectionSynonymous() As List(Of TermXMLSynonymous)
        Get
            Return _TermSynonymous
        End Get
        Set(ByVal value As List(Of TermXMLSynonymous))
            _TermSynonymous = value
        End Set
    End Property
End Class

Public Class TermXMLSynonymous
    Private _SynonymousName As String = String.Empty
    Public Property SynonymousName() As String
        Get
            Return _SynonymousName
        End Get
        Set(ByVal value As String)
            _SynonymousName = value
        End Set
    End Property
End Class

Public Class SolidQTermSetExporterXML
    Private _termSetInLanguages As List(Of TermSetXML)
    Public Property TermSetInLanguages() As List(Of TermSetXML)
        Get
            Return _termSetInLanguages
        End Get
        Set(ByVal value As List(Of TermSetXML))
            _termSetInLanguages = value
        End Set
    End Property
End Class








